home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_0593.zip / READSHFT.PAS < prev    next >
Pascal/Delphi Source File  |  1993-05-30  |  741b  |  23 lines

  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 393 of 412
  3. From : Fred Johnson                        1:280/5.0            15 May 93  13:35
  4. To   : Norman Yen
  5. Subj : Reading SHIFT key?
  6. ────────────────────────────────────────────────────────────────────────────────
  7.  
  8.    >  Message #10341 - Pascal Programming
  9.    >    Date: 05-12-93 15:58
  10.    >    From: Norman Yen
  11.    >      To: All
  12.    > Subject: Reading SHIFT key?
  13. }
  14. uses crt; {for KEYPRESSED}
  15. var iData : integer;
  16. begin
  17.    while not keypressed do
  18.       begin
  19.          iData := mem[$0:$0417];
  20.          if ((iData and 1) = 1) then writeln('Right Shift');
  21.          if ((iData and 2) = 2) then writeln('Left  Shift');
  22.       end;
  23. end.